home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
bbs_lord
/
life118d.zip
/
LIFE.ZIP
/
ARMTXT.DAT
next >
Wrap
Text File
|
1996-03-12
|
16KB
|
534 lines
@#Armour
`<SetOptions>=[B,S,L,R]
`<Clear>
`0 The Armoury
`0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
`2 You stumble into a local armoury...There are a lot of
`2different types of armour to choose from here...you think
`2you'll have to buy some armour to continue in life
`2 (`5B`2)uy some armour
`2 (`5S`2)ell Your armour
`2 (`5L`2)ist available armour
`2 (`4R`2)eturn to the big city
@#ArmourOptions?
`<SetMenu>=[Armour]
@#ArmourOptionsS
`<NewLine>
`<if>=[(LArmourNum),(TheUser),0,@#YouNoHave]
`@Please Note:`3 You will be given the equivalent value of the
`3 item you wish you sell in Lord Life funds...if you wish
`3 to receive the money in Lord Gold...then sell your weapon in
`3 lord...you can still buy one of these weapons once you
`3 have sold your old one...
`2
`<RetOff>
`2 Are you sure you wish to sell your armour? (Y/N) `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<NewLine>
`<RetOn>
`<SetVal>=[(LordArmour),(TheUser),Nothing!]
`<NewLine>
`<if>=[(LArmourNum),(TheUser),1,@#A1]
`<if>=[(LArmourNum),(TheUser),2,@#A2]
`<if>=[(LArmourNum),(TheUser),3,@#A3]
`<if>=[(LArmourNum),(TheUser),4,@#A4]
`<if>=[(LArmourNum),(TheUser),5,@#A5]
`<if>=[(LArmourNum),(TheUser),6,@#A6]
`<if>=[(LArmourNum),(TheUser),7,@#A7]
`<if>=[(LArmourNum),(TheUser),8,@#A8]
`<if>=[(LArmourNum),(TheUser),9,@#A9]
`<if>=[(LArmourNum),(TheUser),10,@#A10]
`<if>=[(LArmourNum),(TheUser),11,@#A11]
`<if>=[(LArmourNum),(TheUser),12,@#A12]
`<if>=[(LArmourNum),(TheUser),13,@#A13]
`<if>=[(LArmourNum),(TheUser),14,@#A14]
`<if>=[(LArmourNum),(TheUser),15,@#A15]
`<NewLine>
`2Aww fiddlesticks...it wont go away...hmm...sorry...
`<More>
@#A1
`<AddVal>=[(FLifeGold),(TheUser),2000]
`<AddVal>=[(LDefence),(TheUser),-1]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A2
`<AddVal>=[(FLifeGold),(TheUser),10000]
`<AddVal>=[(LDefence),(TheUser),-3]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A3
`<AddVal>=[(FLifeGold),(TheUser),30000]
`<AddVal>=[(LDefence),(TheUser),-10]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A4
`<AddVal>=[(FLifeGold),(TheUser),100000]
`<AddVal>=[(LDefence),(TheUser),-15]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A5
`<AddVal>=[(FLifeGold),(TheUser),300000]
`<AddVal>=[(LDefence),(TheUser),-25]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A6
`<AddVal>=[(FLifeGold),(TheUser),1000000]
`<AddVal>=[(LDefence),(TheUser),-35]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A7
`<AddVal>=[(FLifeGold),(TheUser),1500000]
`<AddVal>=[(LDefence),(TheUser),-50]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A8
`<AddVal>=[(FLifeGold),(TheUser),2000000]
`<AddVal>=[(LDefence),(TheUser),-75]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A9
`<AddVal>=[(FLifeGold),(TheUser),4000000]
`<AddVal>=[(LDefence),(TheUser),-100]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A10
`<AddVal>=[(FLifeGold),(TheUser),10000000]
`<AddVal>=[(LDefence),(TheUser),-150]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A11
`<AddVal>=[(FLifeGold),(TheUser),40000000]
`<AddVal>=[(LDefence),(TheUser),-225]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A12
`<AddVal>=[(FLifeGold),(TheUser),100000000]
`<AddVal>=[(LDefence),(TheUser),-300]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A13
`<AddVal>=[(FLifeGold),(TheUser),400000000]
`<AddVal>=[(LDefence),(TheUser),-400]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A14
`<AddVal>=[(FLifeGold),(TheUser),1000000000]
`<AddVal>=[(LDefence),(TheUser),-600]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#A15
`<AddVal>=[(FLifeGold),(TheUser),4000000000]
`<AddVal>=[(LDefence),(TheUser),-1000]
`<SetVal>=[(LArmourNum),(TheUser),0]
`0Done!
`<More>
@#ArmourOptionsB
`<if>=[(LArmourNum),(TheUser),0,@#BuyArm]
`<NewLine>
`2 You `4idiot`2...imbecile...`!You must sell your old Armour first!
`<More>
@#BuyArm
`<NewLine>
`_ The Life of the Red Dragon - `2Armour List
`0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`. `0Armour Price
`. `2 1. String Of Gah........................`54000
`. `2 2. Diaper.............................`520,000
`. `2 3. SackCloth..........................`560,000
`. `2 4. Trench Coat.......................`5200,000
`. `2 5. Jacket Of Aiegil..................`5600,000
`. `2 6. Oof's Copper Strip..............`52,000,000
`. `2 7. Large Sheild....................`53,000,000
`. `2 8. Bladed Armour...................`54,000,000
`. `2 9. Turtle Shell....................`58,000,000
`. `210. Rock Armour....................`520,000,000
`. `211. Shield of wonder...............`580,000,000
`. `212. Wrap of War...................`5200,000,000
`. `213. Helm of Zeus..................`5800,000,000
`. `214. Rings of Fire...............`52,000,000,000
`. `215. Dragon Gold.................`58,000,000,000
`2 The salesman views you from across the counter...
`<RetOff>
`3You have: [
`<PrintVal>=[(FLifeGold),(TheUser)]
`3] life dollars on hand.
`<NewLine>
`9You start to feel cold...Pick one quick! (1-15)
`<Space>
`2>
`<LordIn>=[(TempStr0),70,100,2,(TheUser)]
`<NewLine>
`<if>=[(TempStr0),(TheUser),1,@#StringofGah]
`<if>=[(TempStr0),(TheUser),2,@#Diaper]
`<if>=[(TempStr0),(TheUser),3,@#SackCloth]
`<if>=[(TempStr0),(TheUser),4,@#TrenchCoat]
`<if>=[(TempStr0),(TheUser),5,@#JacketOfAiegil]
`<if>=[(TempStr0),(TheUser),6,@#Oofs]
`<if>=[(TempStr0),(TheUser),7,@#LargeShield]
`<if>=[(TempStr0),(TheUser),8,@#BladedArmour]
`<if>=[(TempStr0),(TheUser),9,@#TurtleShell]
`<if>=[(TempStr0),(TheUser),10,@#RockArmour]
`<if>=[(TempStr0),(TheUser),11,@#ShieldOfWonder]
`<if>=[(TempStr0),(TheUser),12,@#WrapOfWar]
`<if>=[(TempStr0),(TheUser),13,@#HelmOfZeus]
`<if>=[(TempStr0),(TheUser),14,@#RingsOfFire]
`<if>=[(TempStr0),(TheUser),15,@#DragonGold]
`<NewLine>
`5 Next time try to make a `@VALID`5 selection for a `2CHANGE!!!
`<More>
@#StringOfGah
`<RetOff>
`2 You wish my prized String Of Gah do you (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),4000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-4000]
`<AddVal>=[(LDefence),(TheUser),1]
`<SetVal>=[(LordArmour),(TheUser),String Of Gah]
`<SetVal>=[(LArmourNum),(TheUser),1]
`0Done!
`<More>
@#Diaper
`<RetOff>
`2 You wish the Diaper do you (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),20000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-20000]
`<AddVal>=[(LDefence),(TheUser),3]
`<SetVal>=[(LordArmour),(TheUser),Diaper]
`<SetVal>=[(LArmourNum),(TheUser),2]
`0Done!
`<More>
@#SackCloth
`<RetOff>
`<if>=[(Level),(TheUser),1,@#LevelLock]
`<Space>
`2 You want the SackCloth do you (Y/N)? `0[`5Y`0]:
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),60000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-60000]
`<AddVal>=[(LDefence),(TheUser),10]
`<SetVal>=[(LordArmour),(TheUser),SackCloth]
`<SetVal>=[(LArmourNum),(TheUser),3]
`0Done!
`<More>
@#TrenchCoat
`<if>=[(Level),(TheUser),1,@#LevelLock]
`<if>=[(Level),(TheUser),2,@#LevelLock]
`<RetOff>
`2 You want the Trench Coat do you (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),200000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-200000]
`<AddVal>=[(LDefence),(TheUser),15]
`<SetVal>=[(LordArmour),(TheUser),Trench Coat]
`<SetVal>=[(LArmourNum),(TheUser),4]
`0Done!
`<More>
@#JacketOfAiegil
`<if>=[(Level),(TheUser),1,@#LevelLock]
`<ifless>=[(Level),(TheUser),4,@#LevelLock]
`<RetOff>
`2 You want a Aiegil Jacket do you (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),600000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-600000]
`<AddVal>=[(LDefence),(TheUser),25]
`<SetVal>=[(LordArmour),(TheUser),Aiegil Jacket]
`<SetVal>=[(LArmourNum),(TheUser),5]
`0Done!
`<More>
@#Oofs
`<if>=[(Level),(TheUser),1,@#LevelLock]
`<ifless>=[(Level),(TheUser),4,@#LevelLock]
`<RetOff>
`2 You want Oof's Copper Strip do you (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),2000000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-2000000]
`<AddVal>=[(LDefence),(TheUser),35]
`<SetVal>=[(LordArmour),(TheUser),Oof's Copper]
`<SetVal>=[(LArmourNum),(TheUser),6]
`0Done!
`<More>
@#LargeShield
`<if>=[(Level),(TheUser),1,@#LevelLock]
`<ifless>=[(Level),(TheUser),5,@#LevelLock]
`<RetOff>
`2 You want a Large Shield do you (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),3000000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-3000000]
`<AddVal>=[(LDefence),(TheUser),50]
`<SetVal>=[(LordArmour),(TheUser),Large Shield]
`<SetVal>=[(LArmourNum),(TheUser),7]
`0Done!
`<More>
@#BladedArmour
`<if>=[(Level),(TheUser),1,@#LevelLock]
`<ifless>=[(Level),(TheUser),5,@#LevelLock]
`<RetOff>
`2 You want the Bladed Armour do you (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),4000000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-4000000]
`<AddVal>=[(LDefence),(TheUser),75]
`<SetVal>=[(LordArmour),(TheUser),Bladed Armour]
`<SetVal>=[(LArmourNum),(TheUser),8]
`0Done!
`<More>
@#TurtleShell
`<if>=[(Level),(TheUser),1,@#LevelLock]
`<ifless>=[(Level),(TheUser),6,@#LevelLock]
`<RetOff>
`2 Turtle Shell (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),8000000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-8000000]
`<AddVal>=[(LDefence),(TheUser),100]
`<SetVal>=[(LordArmour),(TheUser),Turtle Shell]
`<SetVal>=[(LArmourNum),(TheUser),9]
`0Done!
`<More>
@#RockArmour
`<if>=[(Level),(TheUser),1,@#LevelLock]
`<ifless>=[(Level),(TheUser),6,@#LevelLock]
`<RetOff>
`2 You want Rock Armour do you (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),20000000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-20000000]
`<AddVal>=[(LDefence),(TheUser),150]
`<SetVal>=[(LordArmour),(TheUser),Rock Armour]
`<SetVal>=[(LArmourNum),(TheUser),10]
`0Done!
`<More>
@#ShieldOfWonder
`<if>=[(Level),(TheUser),1,@#LevelLock]
`<ifless>=[(Level),(TheUser),7,@#LevelLock]
`<RetOff>
`2 You want the Shield of Wonder do you (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),80000000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-80000000]
`<AddVal>=[(LDefence),(TheUser),225]
`<SetVal>=[(LordArmour),(TheUser),Shield Of Wonder]
`<SetVal>=[(LArmourNum),(TheUser),11]
`0Done!
`<More>
@#WrapOfWar
`<if>=[(Level),(TheUser),1,@#LevelLock]
`<ifless>=[(Level),(TheUser),7,@#LevelLock]
`<RetOff>
`2 You want the Wrap of War (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),200000000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-200000000]
`<AddVal>=[(LDefence),(TheUser),300]
`<SetVal>=[(LordArmour),(TheUser),Wrap Of War]
`<SetVal>=[(LArmourNum),(TheUser),12]
`0Done!
`<More>
@#HelmOfZeus
`<if>=[(Level),(TheUser),1,@#LevelLock]
`<ifless>=[(Level),(TheUser),8,@#LevelLock]
`<RetOff>
`2 You want the Helm of Zeus! (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),800000000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-800000000]
`<AddVal>=[(LDefence),(TheUser),400]
`<SetVal>=[(LordArmour),(TheUser),Helm of Zeus]
`<SetVal>=[(LArmourNum),(TheUser),13]
`0Done!
`<More>
@#RingsOfFire
`<if>=[(Level),(TheUser),1,@#LevelLock]
`<ifless>=[(Level),(TheUser),8,@#LevelLock]
`<RetOff>
`2 You want the Rings Of Fire (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),2000000000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-2000000000]
`<AddVal>=[(LDefence),(TheUser),600]
`<SetVal>=[(LordArmour),(TheUser),Rings Of Fire]
`<SetVal>=[(LArmourNum),(TheUser),14]
`0Done!
`<More>
@#DragonGold
`<if>=[(Level),(TheUser),1,@#LevelLock]
`<ifless>=[(Level),(TheUser),9,@#LevelLock]
`<RetOff>
`2 Dragon Gold...really (Y/N)? `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),8000000000,@#NSF]
`<AddVal>=[(FLifeGold),(TheUser),-8000000000]
`<AddVal>=[(LDefence),(TheUser),1000]
`<SetVal>=[(LordArmour),(TheUser),Dragon Gold]
`<SetVal>=[(LArmourNum),(TheUser),15]
`0Done!
`<More>
@#ArmourOptionsL
`<NewLine>
`<Clear>
`<NewLine>
`_ The Life of the Red Dragon - `2Armour List
`0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`. `0Armour Price
`. `2 1. String Of Gah........................`54000
`. `2 2. Diaper.............................`520,000
`. `2 3. SackCloth..........................`560,000
`. `2 4. Trench Coat.......................`5200,000
`. `2 5. Jacket Of Aiegil..................`5600,000
`. `2 6. Oof's Copper Strip..............`52,000,000
`. `2 7. Large Sheild....................`53,000,000
`. `2 8. Big Nasty Armour................`54,000,000
`. `2 9. Turtle Shell....................`58,000,000
`. `210. Rock Armour....................`520,000,000
`. `211. Shield of wonder...............`580,000,000
`. `212. Wrap of War...................`5200,000,000
`. `213. Helm of Zeus..................`5800,000,000
`. `214. Rings of Fire...............`52,000,000,000
`. `215. Dragon Gold.................`58,000,000,000
`<More>
@#ArmourOptionsR
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#ArmourOptions|
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#UserNotFound
`<NewLine>
`<RetOn>
`7User not found...
`2The user may not have been in lord life yet...
`2Or you may not have entered the name right...
`2Type less of the name if you are unsure...
`<More>
@#UserNoInfo
`<NewLine>
`2Sorry...but that user has not entered their info yet.
`<NewLine>
`<More>
@#Abort
`<NewLine>
`4Aborted!
`<NewLine>
`<More>
@#NoFairy
`<NewLine>
`2 Sorry pal...but you do not have a fairy!
`<NewLine>
`<More>
@#NSF
`2
`2Sorry...but you do not have enough money...
`3Go to the bank and get some money...or `4get lost!
`<More>
@#YouNoHave
`2
`2WHAT!?! You do not have one!!!
`<More>
@#LevelLock
`2
`2 Sorry...but you cannot buy that item here on your
`2Level...it could make a mockery of your lord game...ruining all
`2the fun...you wouldn't want that would you...don't worry after
`2you reach Level nine all's fair in lord and life! :)
`<More>
@#ENDOFFILE